home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / bitblt.def < prev    next >
Text File  |  1995-11-25  |  4KB  |  55 lines
  1. (******************************************************************************)
  2. (*      This MODULE is Public Domain. Copy me like a beast!                   *)
  3. (*               Christian Ledermann                                          *)
  4. (*               Wölfelkofen 2                                                *)
  5. (*               84166 Adlkofen                                               *)
  6. (******************************************************************************)
  7. (*                                                                            *)
  8. (* Started:   20.12.92     03:54:30                                           *)
  9. (* Version:   20.01.94     04:12:54                                           *)
  10. (*                                                                            *)
  11. (******************************************************************************)
  12. (*                                                                            *)
  13. (* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
  14. (* keinerlei Wartung und übernehme keine Verantwortung für Schäden die        *)
  15. (* durch die Benutzung dieses Programmes entstehen.                           *)
  16. (* Jegliche Ersatzansprüche lehne ich ab.                                     *)
  17. (*                                                                            *)
  18. (******************************************************************************)
  19. DEFINITION MODULE BitBlt;
  20. FROM SYSTEM IMPORT ADDRESS;
  21.  
  22. (*********************************************************************)
  23. (* Hier sind einige PROCEDUREn versammelt die den Umgang mit         *)
  24. (* VDIRasters.CopyRasterOpaque und dem MFDB demonstrieren bzw        *)
  25. (* erleichtern sollen.                                               *)
  26. (* Der Umgang mit diesen PROCEDUREn ist dann ebenso einfach wie in   *)
  27. (* GFA-Basic.                                                        *)
  28. (* Copy ScreenToMem und CopyMemToScreen sind als Duo zur             *)
  29. (* Wiederherstellung des Bildschirminhaltes gedacht nachdem man hier *)
  30. (* etwas gezeichnet hat. Siehe auch MODULE EasyDialog.               *)
  31. (*********************************************************************)
  32.  
  33. PROCEDURE CopyScreenToScreen(x,y,w,h,xDest,yDest: INTEGER);
  34. (*********************************************************************)
  35. (* Kopiert einen Bildschirmauschnitt von x,y mit Breite w und Höhe h *)
  36. (* nach xDest, yDest mit gleicher Breite und Höhe.                   *)
  37. (* (Sehr praktisch zum scrolen in Fenstern.)                         *)
  38. (*********************************************************************)
  39.  
  40. PROCEDURE CopyScreenToMem(x,y,w,h: INTEGER; VAR buf:ADDRESS);
  41. (*********************************************************************)
  42. (* Kopiert einen Bildschirmauschnitt in den Speicher an die ADDRESSe *)
  43. (* buf. Alle anderen nötigen Parameter für den MFDB werden von der   *)
  44. (* PROCEDURE selbst besorgt; der benötigte Speicher reseviert.       *)
  45. (*********************************************************************)
  46.  
  47. PROCEDURE CopyMemToScreen(x,y,w,h: INTEGER; buf: ADDRESS;DeAlloc:BOOLEAN );
  48. (*********************************************************************)
  49. (* Kopiert einen Block aus dem Speicher in den Bildschirm.           *)
  50. (* Das ist das Gegenstück zu CopyScreenToMem                         *)
  51. (* Wenn DeAlloc TRUE ist wird der Speicher freigegeben sonst bleibt  *)
  52. (* der Block im Speicher erhalten zur nochmaligen Verwendung.        *)
  53. (*********************************************************************)
  54. END BitBlt.
  55.